COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.device xgp
C00008 ENDMK
C⊗;
.device xgp
.evenleftborder ← oddleftborder ← 1000;
.require "pubmac[206,LSP]" source_file
.standard front(I, 1)
.PAGE FRAME 53 HIGH 200 WIDE;
.AREA TEXT LINES 4 TO 51 CHARS 1 TO 200;
.TITLE AREA HEADING LINES 1 TO 3 CHARS 1 TO 81;
.TITLE AREA FOOTING LINE 52 CHARS 1 TO 81;
.PLACE TEXT;
.NARROW 0,200-81;
.INDENT 0,0,0;
.turn on "%#π" ;
.every heading(, {SECNAME}, {page}) ;
.AT 8 ⊂"%1        %*"⊃ ;
.AT 16 ⊂"%1                %*"⊃ ;
.PORTION MAINPORTION
.font 1 "baxl30"
.font 2 "bdr30"
.font 3 "baxm30"
.font 4 "basb30" <<bold>>
.font 5 "bdr30" <<const>>
.font 6 "sub"
.font 7 "sup"
.font A "fix40"
.font B "fix30"
.font C "grfx25"
.font D "grfx35"
.macro iff(p,a,b) ⊂"%4if%3 p %4then%3 a %4else%3 b"⊃
.at "qnil" ⊂"%5NIL%*"⊃
.at "qaa" ⊂"%4aa%*"⊃
.at "qad" ⊂"%4ad%*"⊃
.at "qif" ⊂"%4if%*"⊃
.at "qthen" ⊂"%4then%*"⊃
.at "qelse" ⊂"%4else%*"⊃
.at "qda" ⊂"%4da%*"⊃
.at "qdd" ⊂"%4dd%*"⊃
.at "qa" ⊂"%4a%*"⊃
.at "qn" ⊂"%4n%*"⊃
.at "qd" ⊂"%4d%*"⊃

.count eq inline in section from 1 to 999 printing ⊂(section&"."&eq)⊃;
.at "!!" lab " " ⊂
.lab next eq!;
%3{eq!})∂8{
.⊃

.<<formulas are signalled by !! followed by an optional identifier followed
. by colon followed by the formula.  A reference to formula nn is written {eq nn}
.!!e1:	x=x
.!!e2:	y=y
.
.Equation {eq! e2} comes after {eq! e1}.
.>>